home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_03_05 / 3n05040a < prev    next >
Encoding:
Text File  |  1992-02-17  |  1.4 KB  |  35 lines
  1. ' Type defintions for dllparam.bas
  2. ' Copyright (c) 1992, by Desaware
  3. ' All rights reserved
  4.  
  5. ' User defined type used in several examples
  6. Type usertype
  7.     a As Integer
  8.     b As Integer
  9.     c As Integer
  10.     d As Integer
  11.     s As String
  12. End Type
  13.  
  14. Declare Function ReceivesInteger% Lib "DLLPARAM.DLL" (ByVal x%)
  15. Declare Function ReceivesLong& Lib "DLLPARAM.DLL" (ByVal x&)
  16. Declare Function ReceivesSingle! Lib "DLLPARAM.DLL" (ByVal x!)
  17. Declare Function ReceivesDouble# Lib "DLLPARAM.DLL" (ByVal x#)
  18. Declare Function ReceivesCurrency@ Lib "DLLPARAM.DLL" (ByVal x@)
  19. Declare Sub Add5ToInteger Lib "DLLPARAM.DLL" (x%)
  20. Declare Sub Add5ToLong Lib "DLLPARAM.DLL" (y&)
  21. Declare Sub Add5ToSingle Lib "DLLPARAM.DLL" (f!)
  22. Declare Sub Add5ToDouble Lib "DLLPARAM.DLL" (d#)
  23. Declare Sub AddPennyToCurrency Lib "DLLPARAM.DLL" (c@)
  24. Declare Sub ReceivesString Lib "DLLPARAM.DLL" (ByVal s$)
  25. Declare Sub ChangesString Lib "DLLPARAM.DLL" (ByVal s$)
  26. Declare Function GetControlHwnd% Lib "DLLPARAM.DLL" (ctl As Control)
  27. Declare Function GetFormHwnd% Lib "DLLPARAM.DLL" Alias "GetControlHwnd" (frm As Form)
  28. Declare Sub ReceivesVBString Lib "DLLPARAM.DLL" (s$)
  29. Declare Sub ChangesVBString Lib "DLLPARAM.DLL" (s$)
  30. Declare Function ReturnsVBString$ Lib "DLLPARAM.DLL" ()
  31. Declare Sub ReceivesUserType Lib "DLLPARAM.DLL" (u As usertype)
  32. Declare Sub AddUserString Lib "DLLPARAM.DLL" (u As usertype)
  33. Declare Sub ReceivesIntArray Lib "DLLPARAM.DLL" (i As Integer)
  34.  
  35.